home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-serious-
/
programming
/
e
/
lsestuff
/
bricks.e
< prev
next >
Wrap
Text File
|
1999-11-29
|
197b
|
14 lines
OBJECT robj
next:PTR TO robj
prev:PTR TO robj
id
ENDOBJECT
PROC find(id) OF robj
IF self.id = id THEN RETURN self
IF self.next = NIL THEN RETURN NIL
self.next.find(id)
ENDPROC